home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb38808.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  50 lines
  1. ;=============388.08 AUTOMATIK-VERBINDUNGSSATZ
  2.  
  3.  
  4. (defun C:38808D2 (/ NL P0 P1 P2 P10 P11 P12 P13)
  5.    (EAITDBL "0038808")
  6.    (princ (strcat "\n\n" EAITbez1))
  7.    (EAITvari)
  8.    (EAITvars)
  9.    (setvar "ORTHOMODE" 0)
  10.    (setvar "OSMODE" 0)
  11.    (EAITmsg "mb_mld12" "\n  " "015" ": ")  ;1. Nutlinie:
  12.    (setq NL (entsel " ")
  13.          P0 (osnap (cadr NL) EAITofnaec)
  14.    )
  15.    (setvar "OSMODE" 128)
  16.    (EAITmsg "mb_mld12" "\n  " "016" ": ")  ;2. Nutlinie:
  17.    (setq P1 (getpoint P0))
  18.    (setvar "ORTHOMODE" 0)
  19.    (setvar "OSMODE" 0)
  20.    (setvar "APERTURE" 4)
  21.    (setq P10 (osnap P0 EAITofend)
  22.          P11 (osnap P1 EAITofend)
  23.          P12 (osnap P0 EAITofmit)
  24.          P13 (osnap P1 EAITofmit)
  25.          P1 (mapcar '/ (mapcar '+ P10 P11) '(2 2 2))
  26.          P2 (mapcar '/ (mapcar '+ P12 P13) '(2 2 2))
  27.    )
  28.    (if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs NL) )
  29.    (command EAITzom EAITzof (polar P1 (EAITgib 225) 50) (polar P1 (EAITgib 45) 50))
  30.    (if (/= (ssget (polar P10 (angle P10 P12) 27)) nil)
  31.          (command EAITbru (polar P10 (angle P10 P12) 27) EAITbre P10 (polar P10 (angle P10 P12) 39.819))
  32.    )
  33.    (if (/= (ssget (polar P11 (angle P11 P13) 27)) nil)        
  34.          (command EAITbru (polar P11 (angle P11 P13) 27) EAITbre P11 (polar P11 (angle P11 P13) 39.819))
  35.    )
  36.    (command EAITege (strcat EAITpfn "38808d1") P1 "" "" (EAITbig (angle P12 P10))
  37.             EAITzom EAITzov
  38.    )
  39.  
  40.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ (EAITbw)(EAITgib 173)) 19) "" "" (EAITbig (EAITbw))
  41.             EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  42.    )
  43.  
  44.    (EAITvarz2)
  45.    (princ)
  46. );defun D2
  47.  
  48.  
  49.  
  50.